﻿Public Class clsStorageLocationMst
    Public Function getList(code As String, status As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT a.*,b.name FROM sf.t_mst_storage_location a left join sf.t_mst_warehouse b on a.code = b.code"
        szSql &= " where 1 = 1 "
        szSql &= " and a.code = ? "
        szSql &= " and a.status = ? "
        szSql &= " and a.validity = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, code, status, "1")
        Return dt
    End Function
End Class
